<%@LANGUAGE="VBSCRIPT"%>
<% MM_CadenaConexionWeb_STRING = MM_ConexionCliente_STRING %>
<%If IsEmpty(Session("Pais")) then
If Not IsEmpty(Request.QueryString("P")) then
Session("Pais")= Request.QueryString("P")
End If
End If
%>
<%
Dim rs_marcas_pais
Dim pais
Dim codigoPais
Dim CODMAR
Dim CODMOD
CODMAR=request.QueryString("CODMAR")
CODMOD=request.QueryString("CODMOD")
CODPAISES=Request.QueryString("Pais")
Select Case CODPAISES
Case "GT"
Session("Pais")="GT"
rs_marcas_pais = "Guatemala"
pais = "GUATEMALA"
codigoPais="502"
Case "ES"
Session("Pais")="ES"
rs_marcas_pais = "El Salvador"
pais = "EL SALVADOR"
codigoPais="503"
Case "HN"
Session("Pais")="HN"
rs_marcas_pais = "Honduras"
pais = "HONDURAS"
codigoPais="504"
Case "NC"
Session("Pais")="NC"
rs_marcas_pais = "Nicaragua"
pais = "NICARAGUA"
codigoPais="505"
Case "CR"
Session("Pais")="CR"
rs_marcas_pais = "Costa Rica"
pais = "COSTA RICA"
codigoPais="506"
End Select
Dim rs_sucursales
Set rs_sucursales = Server.CreateObject("ADODB.Recordset")
rs_sucursales.ActiveConnection = MM_CadenaConexionWeb_STRING
rs_sucursales.Source = "{call dbo.proc_select_sucursales('" + Replace(rs_marcas_pais, "'", "''") + "')}"
rs_sucursales.CursorType = 0
rs_sucursales.CursorLocation = 2
rs_sucursales.LockType = 1
rs_sucursales.Open()
Dim rs_marcas_combo
Set rs_marcas_combo = Server.CreateObject("ADODB.Recordset")
rs_marcas_combo.ActiveConnection = MM_CadenaConexionWeb_STRING
if CODMAR ="" or CODMOD ="" then
rs_marcas_combo.Source = "{call dbo.proc_select_marcas('" + Replace(rs_marcas_pais, "'", "''") + "')}"
else
rs_marcas_combo.Source = "{call dbo.proc_select_marcas_pais('" + Replace(rs_marcas_pais, "'", "''") + "','" + Replace(CODMAR, "'", "''") + "')}"
end if
rs_marcas_combo.CursorType = 0
rs_marcas_combo.CursorLocation = 2
rs_marcas_combo.LockType = 1
rs_marcas_combo.Open()
%>
Cotize su vehículo | formulario
